home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 25 / MacFormat n. 25 (Spain) / MacFormat 25.bin / mac / Demos / Print Artist Demo / Print-Mac.Dxr / 00039.ls < prev    next >
Encoding:
Text File  |  1996-10-04  |  996 b   |  51 lines
  1. on msgJump
  2.   global loopOnce
  3.   if loopOnce = 0 then
  4.     startTimer()
  5.   end if
  6.   puppetSprite(16, 1)
  7.   if the timer > 260 then
  8.     set the memberNum of sprite 16 to the number of member ("msg" & string(random(22)))
  9.     updateStage()
  10.     startTimer()
  11.   else
  12.     set loopOnce to 1
  13.     exit
  14.   end if
  15. end
  16.  
  17. on printCast whatMember
  18.   set doc to new(xtra("PrintoMatic_Lite"))
  19.   if not objectp(doc) then
  20.     exit
  21.   end if
  22.   setMargins(doc, rect(36, 36, 36, 36))
  23.   setDocumentName(doc, "Print Artist Sample Art")
  24.   append(doc, member whatMember)
  25.   if doJobSetup(doc) then
  26.     print(doc)
  27.   end if
  28.   set doc to 0
  29. end
  30.  
  31. on printCard whatMember
  32.   set doc to new(xtra("PrintoMatic_Lite"))
  33.   if not objectp(doc) then
  34.     exit
  35.   end if
  36.   setMargins(doc, rect(28, 36, 36, 36))
  37.   setDocumentName(doc, "Print Artist Sample Art")
  38.   append(doc, member whatMember)
  39.   if doJobSetup(doc) then
  40.     print(doc)
  41.   end if
  42.   set doc to 0
  43. end
  44.  
  45. on wait n
  46.   startTimer()
  47.   repeat while the timer < n
  48.     nothing()
  49.   end repeat
  50. end
  51.